﻿Public Class FrmDangNhap

    Private flag As Boolean = True
    Dim DAL As New DAL_DangNhap

    Dim Solandangnhap As Integer = 0
    
    Private Sub FrmDangNhap_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If RadGV.Checked = True Or RadSV.Checked = True Then

            txttendangnhap.Focus()

        End If

        txttendangnhap.Focus()

        ToolTip1.SetToolTip(btnDangNhap, "Đăng nhập vào chương trình nếu mật thông tin tài khoản hợp lệ")

        ToolTip1.SetToolTip(btnthoatchuongtrinh, "Thoát khỏi chương trình")

    End Sub

    Private Sub btnDangNhap_Click(sender As System.Object, e As System.EventArgs) Handles btnDangNhap.Click
        For _i As Integer = 0 To 100 - 1
            ProgressBarX1.Value += _i
        Next

        Try
            If RadGV.Checked = False And RadSV.Checked = False Then

                MessageBox.Show("Bạn chưa chọn loại tài khoản cần đăng nhập " & Chr(13) & " Check vào dấu tròn tương ứng với tài khoản bạn muốn đăng nhâp", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

            ElseIf txttendangnhap.Text = "" Then

                MessageBox.Show("Bạn chưa nhập tên đăng nhập", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txttendangnhap.Focus()

            ElseIf txtmatkhau.Text = "" Then

                MessageBox.Show("Bạn chưa nhập tên mật khẩu", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txtmatkhau.Focus()

            ElseIf RadGV.Checked = True Then

                Dim ds As New DataSet

                ds = DAL.LoadDanhSachTaiKhoan

                For Each dr As DataRow In ds.Tables(0).Rows

                    If dr("TenTaiKhoan") = txttendangnhap.Text And dr("MatKhau") = txtmatkhau.Text Then

                        FrmGiaoVien.Show()

                        Call XoadulieuTextboxkhidangnhapthanhcong()

                        Exit Sub

                    End If

                Next

                MessageBox.Show("Tên đăng nhập hoặc mật khẩu không đúng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Solandangnhap += 1

                If Solandangnhap >= 3 Then

                    MessageBox.Show("Bạn mất quyền đăng nhập sau khi đăng nhập sai 3 lần", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Application.Exit()

                End If
            Else

                Dim ds As New DataSet

                ds = DAL.LoadDanhSachSinhVienThi

                For Each dr As DataRow In ds.Tables(0).Rows

                    If dr("MASV") = txttendangnhap.Text And dr("MaSV") = txtmatkhau.Text Then

                        FrmThi.Show()

                        Call XoadulieuTextboxkhidangnhapthanhcong()

                        Exit Sub

                    End If

                Next

                MessageBox.Show("Tên đăng nhập hoặc mật khẩu không đúng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Solandangnhap += 1

                If Solandangnhap >= 3 Then

                    MessageBox.Show("Bạn mất quyền đăng nhập sau khi đăng nhập sai 3 lần", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Application.Exit()

                End If
            End If

        Catch ex As Exception

            MessageBox.Show("Không tìm thấy cơ sở dữ liệu " & Chr(13) & "Vui lòng thông báo lại cho người quản lý  ", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)

        End Try

        txttendangnhap.Text = ""

        txtmatkhau.Text = ""

        txttendangnhap.Focus()

    End Sub
    Sub XoadulieuTextboxkhidangnhapthanhcong()

        RadGV.Checked = False

        RadSV.Checked = False

        txttendangnhap.Text = ""

        txtmatkhau.Text = ""

    End Sub

    Private Sub btnthoatchuongtrinh_Click(sender As System.Object, e As System.EventArgs) Handles btnthoatchuongtrinh.Click
        Me.Close()
    End Sub
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If lblChaoMung.Left < -250 Then
            lblChaoMung.Left = 1550
            flag = Not flag
        Else
            lblChaoMung.Left -= 10
            If flag Then
                lblChaoMung.ForeColor = Color.Black
                flag = Not flag
            Else
                lblChaoMung.ForeColor = Color.Teal
                flag = Not flag
            End If
        End If
    End Sub
End Class